'From Pharo1.3 of 16 June 2011 [Latest update: #13307] on 4 November 2011 at 3:38:22 pm'!TestCase subclass: #TesteCelula	instanceVariableNames: ''	classVariableNames: ''	poolDictionaries: ''	category: 'Jogo_Campo_Minado_Teste'!!TesteCelula methodsFor: 'as yet unclassified' stamp: 'marcos 11/4/2011 14:32'!testeCelulaNaoPodeSerInstancida		self should: [Celula new] raise: Error.	! !!TesteCelula methodsFor: 'as yet unclassified' stamp: 'marcos 11/4/2011 15:38'!testeMarcarCelulaSuspeita	|celula|		celula := Celula protectNew.	! !